|
4
|
How can I fit or ensure that all elements are in the control's client area
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AFA73FCE-6609-4062-AE6A-4BAD6D96A025" id="SwimLane1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With SwimLane1
With .Elements
.Add("Element A",-500,-500).BackColor = RGB(0,255,0)
.Add("Element B",500,500).BackColor = RGB(255,0,0)
.Add "Element C",48,24
End With
.FitToClient
End With
End Function
</SCRIPT>
</BODY>
|
|
3
|
Context Menu - Microsoft Windows 8.1 - Ribbon Like
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AFA73FCE-6609-4062-AE6A-4BAD6D96A025" id="SwimLane1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With SwimLane1
.BeginUpdate
With .VisualAppearance
.Add 1,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_background.ebn"
.Add 2,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_groupt.ebn"
.Add 12,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_hot.ebn"
.Add 14,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_select.ebn"
.Add 17,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_tab.ebn"
.Add 18,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_tabhot.ebn"
.Add 30,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_radio0.ebn"
.Add 31,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_radio1.ebn"
.Add 32,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_check0.ebn"
.Add 33,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_check1.ebn"
.Add 34,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_buttonu.ebn"
.Add 35,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_buttond.ebn"
End With
.Background(99) = &H1000000
.Background(64) = &H1fefefe
.Background(102) = &He000000
.Background(148) = &H1000000
.Background(149) = RGB(255,255,255)
.Background(155) = &Hc000000
.Background(153) = &He000000
.Background(110) = &Hc000000
.Background(112) = &H23000000
.Background(2) = &H22000000 ' &H2
.Background(3) = &H23000000 ' &H3
.Background(70) = &H20000000
.Background(71) = &H21000000
.Background(73) = &H1e000000
.Background(74) = &H1f000000
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
2
|
Context Menu - Microsoft Paint - Ribbon Like
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AFA73FCE-6609-4062-AE6A-4BAD6D96A025" id="SwimLane1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With SwimLane1
.BeginUpdate
With .VisualAppearance
.Add 1,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_background.ebn"
.Add 2,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_groupt.ebn"
.Add 3,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_groupo.ebn"
.Add 4,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_grouphot.ebn"
.Add 5,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_frameh.ebn"
.Add 6,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_framehs.ebn"
.Add 7,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_framehi.ebn"
.Add 8,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_framehe.ebn"
.Add 9,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_framevs.ebn"
.Add 10,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_framevi.ebn"
.Add 11,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_frameve.ebn"
.Add 12,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_select.ebn"
.Add 13,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_bordert.ebn"
.Add 14,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_buttond.ebn"
.Add 15,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_buttonu.ebn"
.Add 16,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_tab.ebn"
.Add 17,"CP:16 0 0 0 1"
.Add 18,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_tabhot.ebn"
.Add 19,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_tabselhot.ebn"
.Add 20,"CP:19 0 0 0 1"
End With
.Background(99) = &H1000000
.Background(101) = RGB(21,66,139)
.Background(102) = &He000000
.Background(64) = &H1fefefe
.Background(148) = &H1000000
.Background(149) = RGB(255,255,255)
.Background(155) = &Hd000000
.Background(153) = &H1000000
.Background(2) = &Hd000000 ' &H2
.Background(105) = &H5000000
.Background(106) = &H6000000
.Background(107) = &H7000000
.Background(108) = &H8000000
.Background(116) = &H9000000
.Background(117) = &Ha000000
.Background(118) = &Hb000000
.Background(110) = &Hc000000
.Background(112) = &Hf000000
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
1
|
Context Menu - Microsoft Office - Ribbon Like
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AFA73FCE-6609-4062-AE6A-4BAD6D96A025" id="SwimLane1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With SwimLane1
.BeginUpdate
With .VisualAppearance
.Add 1,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_background.ebn"
.Add 2,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_groupt.ebn"
.Add 3,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_groupo.ebn"
.Add 4,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_grouphot.ebn"
.Add 5,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_frameh.ebn"
.Add 6,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_framehs.ebn"
.Add 7,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_framehi.ebn"
.Add 8,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_framehe.ebn"
.Add 9,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_framevs.ebn"
.Add 10,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_framevi.ebn"
.Add 11,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_frameve.ebn"
.Add 12,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_select.ebn"
.Add 13,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_bordert.ebn"
.Add 14,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_buttond.ebn"
.Add 15,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_buttonu.ebn"
.Add 16,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_tab.ebn"
.Add 17,"CP:16 0 0 0 1"
.Add 18,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_tabhot.ebn"
.Add 19,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_tabselhot.ebn"
.Add 20,"CP:19 0 0 0 1"
End With
.Background(99) = &H1000000
.Background(101) = RGB(21,66,139)
.Background(64) = &H1fefefe
.Background(148) = &H1000000
.Background(149) = RGB(255,255,255)
.Background(155) = &Hd000000
.Background(153) = &H1000000
.Background(2) = &Hd000000 ' &H2
.Background(3) = &H1000000 ' &H3
.Background(105) = &H5000000
.Background(106) = &H6000000
.Background(107) = &H7000000
.Background(108) = &H8000000
.Background(116) = &H9000000
.Background(117) = &Ha000000
.Background(118) = &Hb000000
.Background(110) = &Hc000000
.Background(102) = &He000000
.Background(112) = &Hf000000
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|